(basic-save-buffer): if selective-display is t, file may end in CR instead of

LF.

diff --git a/lisp/files.el b/lisp/files.el
index f36dc409e467b4b6be424e0f70777cb838f814d8..389139b8f8d80941b4835882c2e5ae2b984b22a5 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1515,6 +1515,8 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
          (widen)
          (and (> (point-max) 1)
               (/= (char-after (1- (point-max))) ?\n)
+              (not (and (eq selective-display t)
+                        (= (char-after (1- (point-max))) ?\r)))
               (or (eq require-final-newline t)
                   (and require-final-newline
                        (y-or-n-p